home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
games
/
zmud455.zip
/
ZMUD.EXE
/
0
/
RCDATA
/
TSELECTMUD
/
TSELECTMUD.txt
Wrap
Text File
|
1997-04-13
|
11KB
|
458 lines
object SelectMUD: TSelectMUD
Left = 184
Top = 175
HelpContext = 111
BorderStyle = bsDialog
Caption = 'MUD Connector'
ClientHeight = 398
ClientWidth = 453
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object StatBar: TPanel
Left = 0
Top = 381
Width = 453
Height = 17
Align = alBottom
Alignment = taLeftJustify
BevelOuter = bvLowered
TabOrder = 0
end
object Description: TMemo
Left = 0
Top = 257
Width = 453
Height = 124
Align = alClient
ScrollBars = ssVertical
TabOrder = 1
end
object Panel1: TPanel
Left = 0
Top = 25
Width = 453
Height = 232
Align = alTop
BevelOuter = bvNone
TabOrder = 2
object Image1: TImage
Left = 216
Top = 8
Width = 26
Height = 26
AutoSize = True
Center = True
end
object Label1: TLabel
Left = 212
Top = 66
Width = 28
Height = 13
Alignment = taRightJustify
Caption = 'Name'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 188
Top = 90
Width = 52
Height = 13
Alignment = taRightJustify
Caption = 'Host / Port'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object MUDCount: TLabel
Left = 40
Top = 160
Width = 2
Height = 11
end
object Label4: TLabel
Left = 248
Top = 8
Width = 142
Height = 13
Caption = 'Select the MUD to connect to'
end
object Label7: TLabel
Left = 248
Top = 22
Width = 124
Height = 13
Caption = 'from the list on the right, or'
end
object Label8: TLabel
Left = 248
Top = 36
Width = 106
Height = 13
Caption = 'fill in the values below.'
end
object NextBtn: TBitBtn
Left = 208
Top = 196
Width = 77
Height = 27
Caption = '&Connect'
Default = True
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 0
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333344333333333333333FF33333333333334643333
3333333333F3F33333333333346643333333333333F33F333333333334666433
3333333333F333F333333333346666433333333333F3333F3333333334666664
3333333333F33333F3333333346666664333333333F333333F33333334666666
E333333333F33333383333333466666E3333333333F3333383333333346666E3
3333333333F333383333333334666E333333333333F33383333333333466E333
3333333333F3383333333333346E33333333333333F38333333333333EE33333
3333333333883333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 288
Top = 196
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Kind = bkCancel
Margin = 2
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 368
Top = 196
Width = 77
Height = 27
HelpContext = 111
Caption = 'Help'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
object Name: TEdit
Left = 248
Top = 64
Width = 193
Height = 21
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object Host: TEdit
Left = 248
Top = 88
Width = 156
Height = 21
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object Port: TEdit
Left = 408
Top = 88
Width = 33
Height = 21
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object MUDListBox: TListBox
Left = 7
Top = 36
Width = 169
Height = 186
ItemHeight = 13
Sorted = True
TabOrder = 6
OnClick = MUDListBoxClick
end
object FilterPanel: TPanel
Left = 8
Top = 9
Width = 169
Height = 25
BevelOuter = bvNone
TabOrder = 7
object Label6: TLabel
Left = 0
Top = 4
Width = 25
Height = 13
Caption = 'Filter:'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object FilterBox: TComboBox
Left = 33
Top = 1
Width = 136
Height = 21
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'-All-'
'Aber'
'Circle'
'Diku'
'Envy'
'LP'
'Merc'
'Moo'
'Muck'
'MudOS'
'Muse'
'Mush'
'Rom'
'Tiny'
'-Other-')
ParentFont = False
TabOrder = 0
OnChange = FilterBoxChange
OnDropDown = FilterBoxDropDown
OnExit = FilterBoxExit
end
end
object AddrPanel: TPanel
Left = 208
Top = 112
Width = 236
Height = 73
BevelOuter = bvNone
TabOrder = 8
object Label5: TLabel
Left = 10
Top = 2
Width = 22
Height = 13
Alignment = taRightJustify
Caption = 'Addr'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object UseBtn: TSpeedButton
Left = 200
Top = 0
Width = 33
Height = 20
Hint = 'Use IP Address|'
AllowAllUp = True
GroupIndex = 1
Caption = 'Use'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Spacing = 0
end
object Label3: TLabel
Left = 8
Top = 26
Width = 24
Height = 13
Alignment = taRightJustify
Caption = 'Type'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object URLLabel: TLabel
Left = 10
Top = 50
Width = 22
Height = 13
Alignment = taRightJustify
Caption = 'URL'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object URLText: TLabel
Left = 40
Top = 50
Width = 3
Height = 13
Cursor = crDrag
Color = clBtnFace
Font.Color = clHighlight
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentColor = False
ParentFont = False
OnClick = URLTextClick
end
object Addr: TEdit
Left = 40
Top = 0
Width = 156
Height = 21
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object MudType: TEdit
Left = 40
Top = 24
Width = 193
Height = 21
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 453
Height = 25
Align = alTop
Alignment = taLeftJustify
BevelOuter = bvLowered
Caption = ' List:'
TabOrder = 3
object ScottList: TSpeedButton
Left = 290
Top = 1
Width = 129
Height = 23
GroupIndex = 1
Caption = 'Scott Geiger'#39's List'
Font.Color = clBtnText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = ScottListClick
end
object SmallList: TSpeedButton
Left = 32
Top = 1
Width = 129
Height = 23
GroupIndex = 1
Down = True
Caption = 'MUD Connector (small)'
Font.Color = clBtnText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = SmallListClick
end
object BigList: TSpeedButton
Left = 161
Top = 1
Width = 129
Height = 23
GroupIndex = 1
Caption = 'MUD Connector (big)'
Font.Color = clBtnText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = BigListClick
end
object UpdateBtn: TSpeedButton
Left = 426
Top = 1
Width = 25
Height = 23
Hint = 'Update List|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444
5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4
335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4
C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4
CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C
C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333
CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC
5555555775FFFF77555555555C4CCC55555555555777775555550000}
NumGlyphs = 2
OnClick = UpdateBtnClick
end
end
end